home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.08 Aug 86.sit / 02.08 Aug 86 / basic / benchmark programs / Accuracy benchmark next >
Encoding:
Text File  |  1986-06-17  |  193 b   |  13 lines  |  [TEXT/MSBB]
  1. 40 time1=TIMER
  2. 50 s=0
  3. 100 x=0
  4. 200 FOR n=1 TO 1000
  5. 300 s=s+x*x
  6. 400 x=x+.00123
  7. 500 NEXT n
  8. 600 PRINT s,x
  9. 700 time2=TIMER
  10. 800 Totaltime=time2-time1
  11. 900 PRINT "Elapsed time =",Totaltime,"Seconds."
  12.  
  13.